module storage_exchange

use basic_var 
use mpi_basic_var 
use storage_exchange_001
use storage_exchange_002

integer :: irequest_recv_001 , irequest_recv_002
integer :: irequest_send_001 , irequest_send_002
integer, dimension(MPI_STATUS_SIZE) :: istatus_recv_001 , istatus_recv_002
integer, dimension(MPI_STATUS_SIZE) :: istatus_send_001 , istatus_send_002

end module storage_exchange
